﻿Imports System
Imports System.IO
Imports System.Data
Imports System.Data.SqlServerCe
Imports System.Drawing
Imports System.Collections
Imports System.Windows.Forms
Imports System.Data.Common

Module WeldSizeDao

    Public Function findWeldSize(ByVal welderId As String) As DataTable
        Dim dtResult As New DataTable
        Dim paramList As New Hashtable()

        Dim SQL As String = "SELECT SIZE FROM eqam_weld_size WHERE WELDER_ID = @WELDER_ID AND PROJECT_ID = @PROJECT_ID ORDER BY SIZE "

        paramList.Add("@WELDER_ID", welderId)
        paramList.Add("@PROJECT_ID", _PROJECT_ID)

        Return LoadData(SQL, paramList)
    End Function
End Module
